home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / mui / bcc_src.lha / Parser / IsReferenced.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-03-15  |  574 b   |  42 lines
  1. #include "ParseBC.h"
  2.  
  3.  
  4. short ParseBC::IsReferenced( char *s, Replace *rep, short endmode )
  5. {
  6.  short ret = 0, l;
  7.  
  8.     StartSurvey();
  9.     
  10.     l = strlen( s );
  11.     
  12.     short Level = MBracket;
  13.     
  14.     
  15.     while( 1 ) {
  16.         GetToken();
  17.         if( !TokLen ) goto end;
  18.  
  19.  
  20.         if( TokLen == l && !strncmp( s, Tok, l ) && !ForbidCheck() ) {
  21.             ret = 1;
  22.             break;
  23.         }
  24.         if( rep && rep->Check( Tok, TokLen ) && !ForbidCheck() ) {
  25.             ret = 1;
  26.             break;
  27.         }
  28.             
  29.  
  30.         if( endmode == 0 && chcmp( '}' ) && MBracket == Level ) break;
  31.         if( endmode == 1 && chcmp( '{' ) ) break;
  32.         
  33.     }
  34.  
  35.  
  36. end:
  37.     StopSurvey();
  38.  
  39.  return ret;
  40.  
  41. }
  42.